#lang racket

(define (convert-euro rate-euro dollar)
  (* rate-euro dollar)
  )

(define (convert-euro-l rate-euro dollar-list)
  (cond
    [(empty? dollar-list) empty]
    [else (cons (convert-euro  rate-euro (first dollar-list))
                (convert-euro-l rate-euro (rest dollar-list)))])
  )

; Test
(define a-dollar-list
  (cons 2.1
     (cons 3.15
        (cons 4.2
           (cons 1.8
              (cons 5.6 empty)))))
  )

(convert-euro-l 1.2 a-dollar-list)
